home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / demos / 108 / modula / clipboar.def < prev    next >
Encoding:
Modula Definition  |  1987-02-20  |  1.4 KB  |  54 lines
  1. DEFINITION MODULE ClipBoard;
  2.  
  3. (* Jefferson Software Copyright 1986 *)
  4.  
  5. (* Jefferson Software      *)
  6. (* 12416 N 28th Dr #18-236 *)
  7. (* Phoenix,  AZ 85029-2434 *)
  8. (* (602)243-3106           *)
  9.  
  10. (* Phase BBS (602)849-1287 (up to 2400 baud) has source *)
  11. (* and answers about Jefferson Software Modula in Sig 8 *)
  12.  
  13. (* Compuserve ID 73637, 1245 *)
  14.  
  15. (* Permission to use this source is given to all who   *)
  16. (* agree to include Jefferson Software's copyright     *)
  17. (* notice, address, and phone number in all copies of  *)
  18. (* this source or source derived from this source.     *)
  19. (* Please send any changes, updates or bugs to us at   *)
  20. (* Jefferson Software. If you have code you want to    *)
  21. (* share with us all, send it and any documentation to *)
  22. (* us. Please tell us if you want your name included.  *)
  23.  
  24. FROM SYSTEM IMPORT ADDRESS;
  25.  
  26. TYPE
  27.   clipInfo = RECORD
  28.     size     : LONGINT;
  29.     location : ADDRESS;
  30.     dirty    : INTEGER;
  31.     where    : INTEGER;
  32.     filename : ARRAY [0..15] OF CHAR;
  33.   END;
  34.  
  35.   PClipInfo = POINTER TO clipInfo;
  36.  
  37. PROCEDURE InfoClip(VAR info : PClipInfo) : INTEGER;
  38.  
  39. PROCEDURE UnloadClip() : INTEGER;
  40.  
  41. PROCEDURE LoadClip() : INTEGER;
  42.  
  43. PROCEDURE ZeroClip;
  44.  
  45. PROCEDURE PutClip(length : LONGINT; source : ADDRESS) : INTEGER;
  46.  
  47. PROCEDURE GetClip(length : ADDRESS;
  48.                   source : ADDRESS;
  49.                   loadflag : CHAR) : INTEGER;
  50.  
  51. PROCEDURE InitClip;
  52.  
  53. END ClipBoard.
  54.